Quick PC 61/Quick PC 61.iso/Programs/IP-Tools.v2.20.WinALL/ipt220.exe/SAMPLES/SENDMAIL.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2002-09-16 | 10.8 KB | 419 lines

object Form1: TForm1
  Left = 178
  Top = 189
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'SendMail   Version 0.04 Beta'
  ClientHeight = 219
  ClientWidth = 521
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 521
    Height = 219
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Mail'
      object Label4: TLabel
        Left = 248
        Top = 10
        Width = 21
        Height = 13
        Caption = 'Text'
      end
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 23
        Height = 13
        Caption = 'From'
      end
      object Label2: TLabel
        Left = 8
        Top = 34
        Width = 13
        Height = 13
        Caption = 'To'
      end
      object Label3: TLabel
        Left = 8
        Top = 60
        Width = 36
        Height = 13
        Caption = 'Subject'
      end
      object Label5: TLabel
        Left = 8
        Top = 90
        Width = 38
        Height = 13
        Caption = 'Process'
      end
      object Bevel1: TBevel
        Left = 8
        Top = 82
        Width = 497
        Height = 4
      end
      object TextMemo: TMemo
        Left = 272
        Top = 8
        Width = 233
        Height = 69
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
      object CancelBtn: TBitBtn
        Left = 16
        Top = 144
        Width = 25
        Height = 25
        Hint = 'Stop'
        Cancel = True
        Enabled = False
        ModalResult = 2
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = CancelBtnClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object FromEdit: TEdit
        Left = 56
        Top = 8
        Width = 185
        Height = 21
        TabOrder = 2
      end
      object ToEdit: TEdit
        Left = 56
        Top = 32
        Width = 185
        Height = 21
        TabOrder = 3
      end
      object SubjectEdit: TEdit
        Left = 56
        Top = 56
        Width = 185
        Height = 21
        TabOrder = 4
      end
      object ResultsMemo: TMemo
        Left = 56
        Top = 91
        Width = 449
        Height = 94
        ScrollBars = ssVertical
        TabOrder = 5
        WordWrap = False
      end
      object StartBtn: TBitBtn
        Left = 16
        Top = 112
        Width = 25
        Height = 25
        Hint = 'Send mail'
        ModalResult = 5
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = StartBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
          000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
          FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
          FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
          9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
          0000777777777777777733333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object DefBtn: TBitBtn
        Left = 245
        Top = 32
        Width = 25
        Height = 20
        Hint = 'Load default values'
        Caption = 'Def'
        ModalResult = 5
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = DefBtnClick
        NumGlyphs = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Options'
      object SaveOptBtn: TBitBtn
        Left = 368
        Top = 56
        Width = 73
        Height = 25
        Caption = '&Save'
        TabOrder = 0
        OnClick = SaveOptBtnClick
        Kind = bkOK
      end
      object GroupBox1: TGroupBox
        Left = 12
        Top = 8
        Width = 281
        Height = 75
        Caption = ' Server  '
        TabOrder = 1
        object Label6: TLabel
          Left = 11
          Top = 22
          Width = 53
          Height = 13
          Caption = 'Mail Server'
        end
        object Label7: TLabel
          Left = 11
          Top = 46
          Width = 59
          Height = 13
          Caption = 'Server'#39's port'
        end
        object PortEdit: TEdit
          Left = 83
          Top = 44
          Width = 185
          Height = 21
          TabOrder = 0
          Text = '25'
        end
        object ServerEdit: TEdit
          Left = 83
          Top = 20
          Width = 185
          Height = 21
          TabOrder = 1
        end
      end
      object GroupBox2: TGroupBox
        Left = 12
        Top = 96
        Width = 485
        Height = 89
        Caption = ' Default values  '
        TabOrder = 2
        object Label8: TLabel
          Left = 14
          Top = 18
          Width = 23
          Height = 13
          Caption = 'From'
        end
        object Label9: TLabel
          Left = 14
          Top = 41
          Width = 13
          Height = 13
          Caption = 'To'
        end
        object Label10: TLabel
          Left = 14
          Top = 65
          Width = 36
          Height = 13
          Caption = 'Subject'
        end
        object DefSubjectEdit: TEdit
          Left = 80
          Top = 60
          Width = 185
          Height = 21
          TabOrder = 0
        end
        object DefToEdit: TEdit
          Left = 80
          Top = 36
          Width = 185
          Height = 21
          TabOrder = 1
        end
        object DefFromEdit: TEdit
          Left = 80
          Top = 12
          Width = 185
          Height = 21
          TabOrder = 2
        end
        object DefTextMemo: TMemo
          Left = 277
          Top = 13
          Width = 197
          Height = 68
          ScrollBars = ssVertical
          TabOrder = 3
        end
      end
      object ExitChk: TCheckBox
        Left = 344
        Top = 20
        Width = 145
        Height = 17
        Caption = 'Exit after send mail'
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Help / About'
      object Label11: TLabel
        Left = 280
        Top = 24
        Width = 225
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = 'SendMail'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 280
        Top = 48
        Width = 225
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = 'Version 0.04 Beta'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 280
        Top = 72
        Width = 225
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = 'Copyright by Alexander Kozlov'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 280
        Top = 112
        Width = 225
        Height = 13
        Cursor = crHandPoint
        Alignment = taCenter
        AutoSize = False
        Caption = 'http://www.ks-soft.net'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label14Click
      end
      object Label15: TLabel
        Left = 280
        Top = 128
        Width = 225
        Height = 13
        Cursor = crHandPoint
        Alignment = taCenter
        AutoSize = False
        Caption = 'E-Mail : [e-mail]; [e-mail]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label15Click
      end
      object Memo1: TMemo
        Left = 4
        Top = 8
        Width = 265
        Height = 177
        Lines.Strings = (
          'This simple program written for IP-Tools.'
          'SendMail can only send e-mail.'
          'But can exit after send mail, can get information from '
          'commandLine.'
          ''
          'Format :> SendMail.exe  [From=FromText]  '
          '[To=ToText]  [Subject=SubjectText]  [Text=FileName]  '
          '[StartAfterLoad]'
          ''
          'Example :> SendMail.exe  From=man1@fbi@org  '
          'TO=[e-mail]  "Subject=Host ... Dead"  '
          'Text=d:\message.txt  StartAfterLoad')
        ReadOnly = True
        TabOrder = 0
      end
    end
  end
  object FormPlacement1: TFormPlacement
    Left = 464
    Top = 35
  end
  object Smtp: TSmtpCli
    Tag = 0
    Port = 'smtp'
    CharSet = 'iso-8859-1'
    OnDisplay = SmtpDisplay
    OnCommand = SmtpCommand
    OnResponse = SmtpResponse
    OnGetData = SmtpGetData
    OnHeaderLine = SmtpHeaderLine
    OnRequestDone = SmtpRequestDone
    Left = 460
    Top = 72
  end
end